home *** CD-ROM | disk | FTP | other *** search
/ Aminet 19 / Aminet 19 (1997)(GTI - Schatztruhe)[!][Jun 1997].iso / Aminet / gfx / board / CGraphX223u.lha / CyberUpdate2.23 / Tools / CyberBackUp-UnInstall next >
Text File  |  1996-12-09  |  14KB  |  379 lines
  1. ;********************************************************************************
  2. ;    ______        __                  ______                     __  __   __
  3. ;   / __  /       / /                 / __  /                    / /  \ \ / /
  4. ;  / /  -'__  __ / /___ ______ _____ / /_ -'_____ ______ ______ / /__  \ \ /
  5. ; / /     \ \/ // __  // ____// .__// // \ / .__// __  // __  // __  / /  /
  6. ;/ /___    \  // /_/ // __/_ / /   / /_/ // /   / __  // /_/ // / / / / \ \
  7. ;\____/    / //_____//_____//_/   /_____//_/   /_/ /_// ____//_/ /_/ /_/ \_\
  8. ;         /_/                                        / /
  9. ;                                                   /_/
  10. ; $VER: 1.4 (December-08-1995)
  11. ;                                                  
  12. ; CyberBacuUp-UnInstall ©1995,1996 by Robert C. Reiswig
  13. ; Suggestions or problems: rcr@netcom.com
  14. ;--------------------------------------------------------------------------------
  15. ;
  16. ;********************************************************************************
  17. (if (= @user-level 0) (set @user-level 2))
  18.  
  19. ;********************************************************************************
  20. ; Read All System information
  21. ;********************************************************************************
  22. (set lan 1)
  23. (if (> (exists ("env:Language")) 0)
  24.   (if (= "deutsch" (getenv "Language")) (set lan 0) )
  25. )
  26.  
  27. ;********************************************************************************
  28. ;English Information
  29. ;********************************************************************************
  30. (set #whattodo "\nWhat would you like to do?\n")
  31. (set #backupcyber " BackUp CyberGraphX")
  32. (set #removecyber " UnInstall CyberGraphX")
  33. (set #whatpartsb "\nWhat parts of CyberGraphX would you like to BackUp?\n")
  34. (set #libs " Libraries")
  35. (set #monitor " Monitor File")
  36. (set #env " ENV: Vars")
  37. (set #envarc " ENVARC: Vars")
  38. (set #whereback "Where would you like to BackUp the selected CyberGraphX Parts?  If a directory Called 'CyberGraphX' is not there one will be created.")
  39. (set #libsbacked1 "\n\nThe CyberGraphX Libraries have been backed-up to:\n\n")
  40. (set #libsbacked2 "\n\n\n\nThe libraries have been renamed to:\n\n<filename>+<version.revision>") 
  41. (set #gettingcheck "\n\nGetting Checksum for:\n\n")
  42. (set #monbacked1 "\n\nThe CyberGraphX Monitor File(s) have been backed-up to:\n\n")
  43. (set #monbacked2 "\n\n\n\nThe Monitor File(s) have been renamed to:\n\n<filename>+<checksum>") 
  44. (set #backenv "\n\nBacking-Up CyberGraphX ENV: File(s)")
  45. (set #envbacked1 "\n\nThe CyberGraphX ENV: File(s) have been backed-up to:\n\n")
  46. (set #backenvarc "\n\nBacking-Up CyberGraphX ENVARC: File(s)")
  47. (set #envarcbacked1 "\n\nThe CyberGraphX ENVARC: File(s) have been backed-up to:\n\n")
  48. (set #notthere "\n\nCurrently UnInstall is not implemented!")
  49. (set #whatpartun "\nWhat parts of CyberGraphX would you like to Uninstall?\n")
  50. ;--
  51. (set #deletefile "\n\nDeleteing file:\n\n")
  52. (set #deletedir "\n\nDeleteing directory:\n\n")
  53. (set #deletemon (cat "\n\nThe installer will now DELETE the following files from 'Devs:Monitors' if there are there\n\n"
  54.                      "Spectrum, Piccolo, Domino, RetinaZ3, PiccoSD64, A2410, Picasso, CyberVision, DraCoAltais\n\n"
  55.                      "and there .info files."
  56.                 )
  57. )
  58. (set #deletelibs (cat "\n\nThe installer will now DELETE the following files from 'Libs:' if there are there\n\n"
  59.                       "cybergraphics.library\ncyberintuition.library\ncyberlayers.library\ncyberncg.library\nvilintuisup.library"
  60.                  )
  61. )
  62. (set #deleteenv "\n\nThe installer will now DELETE 'env:cybergraphics/#?'")
  63. (set #deleteenvarc "\n\nThe installer will now DELETE 'envarc:cybergraphics/#?'")
  64. (set #removenow "Delete Now")
  65. (set #skip "Skip")
  66.  
  67.  
  68. ;********************************************************************************
  69. ;German Information
  70. ;********************************************************************************
  71. (if (= LAN 0)
  72. (
  73. (set #whattodo "\nWas möchten Sie tun ?\n")
  74. (set #backupcyber " Sichere CyberGraphX")
  75. (set #removecyber " Entferne CyberGraphX")
  76. (set #whatpartsb "\nWelche Teile von CyberGraphX möchten Sie sichern?\n")
  77. (set #libs " Libraries")
  78. (set #monitor " Monitor Datei(en)")
  79. (set #env " ENV: Variablen")
  80. (set #envarc " ENVARC: Variablen")
  81. (set #whereback "Wohin wollen Sie die gewählten CyberGraphX Teile sichern?  Wenn ein Verzeichnis 'CyberGraphX' nicht vorhanden ist, wird es erstellt.")
  82. (set #libsbacked1 "\n\nDie CyberGraphX Libraries wurden gesichert nach:\n\n")
  83. (set #libsbacked2 "\n\n\n\nDie Libraries wurden umbenannt in:\n\n<filename>+<version.revision>") 
  84. (set #gettingcheck "\n\nErzeuge Prüfsumme für:\n\n")
  85. (set #monbacked1 "\n\nDie CyberGraphX Monitor Datei(en) wurden gesichert nach:\n\n")
  86. (set #monbacked2 "\n\n\n\nDie Monitor Datei(en) wurden umbenannt in:\n\n<filename>+<checksum>") 
  87. (set #backenv "\n\nSichere CyberGraphX ENV: Datei(en)")
  88. (set #envbacked1 "\n\nDie CyberGraphX ENV: Datei(en) wurden gesichert nach:\n\n")
  89. (set #backenvarc "\n\nSichere CyberGraphX ENVARC: Datei(en)")
  90. (set #envarcbacked1 "\n\nDie CyberGraphX ENVARC: Datei(en) wurden gesichert nach:\n\n")
  91. (set #notthere "\n\nDie Option Deinstallieren ist nicht implementiert!")
  92. ;--
  93. (set #deletefile "\n\nLösche Datei:\n\n")
  94. (set #deletedir "\n\nLösche Verzeichnis:\n\n")
  95. (set #deletemon (cat "\n\nDas Installationsprogramm löscht nun folgende Dateien aus 'Devs:Monitors'\n\n"
  96.                      "Spectrum, Piccolo, Domino, RetinaZ3, PiccoSD64, A2410, Picasso, CyberVision, DraCoAltais\n\n"
  97.                      "und die .info Dateien."
  98.                 )
  99. )
  100. (set #deletelibs (cat "\n\nDas Installationsprogramm wird nun folgende Dateien aus 'Libs:' löschen, falls vorhanden\n\n"
  101.                       "cybergraphics.library\ncyberintuition.library\ncyberlayers.library\ncyberncg.library\nvilintuisup.library"
  102.                  )
  103. )
  104. (set #deleteenv "\n\nDas Installationsprogramm löscht nun 'env:cybergraphics/#?'")
  105. (set #deleteenvarc "\n\nDas Installationsprogramm löscht nun 'envarc:cybergraphics/#?'")
  106. (set #removenow "Jetzt löschen")
  107. (set #skip "Überspringen")
  108.  
  109.  
  110. )
  111. )
  112.  
  113.  
  114. ;********************************************************************************
  115. ; What to do?
  116. ;********************************************************************************
  117. (set ja (askoptions   (choices #backupcyber #removecyber)
  118.                        (prompt #whattodo)
  119.                       (help   #whattodo)
  120.                          (default 1)
  121.     )
  122. )
  123.  
  124. ;********************************************************************************
  125. ; BackUp
  126. ;********************************************************************************
  127. (if (IN ja 0)
  128. (
  129.  
  130. (set todo (askoptions   (choices #libs #monitor #env #envarc)
  131.                           (prompt #whatpartsb)
  132.                         (help   #whatpartsb)
  133.                            (default 15)
  134.     )
  135. )
  136.  
  137. (if (<> todo 0)
  138.  (
  139.    (set whereback (askdir (prompt #whereback)
  140.                       (help   #whereback)
  141.                           (default "SYS:Storage")
  142.               )
  143.    )
  144.  
  145.    (set wherelibs "libs:")
  146.    (set wheremon  "devs:monitors")   
  147.    
  148.    (if (IN todo 0)
  149.       (
  150.          (set libsdest (tackon whereback "CyberGraphX"))
  151.          (if (< (exists libsdest) 2)  (makedir libsdest (infos)) )
  152.          (set libsdest (tackon whereback "CyberGraphX/libs"))
  153.          (if (< (exists libsdest) 2)  (makedir libsdest (infos)) )
  154.  
  155.          (procedure BackUpLib
  156.           (if (> (exists (tackon wherelibs #lib)) 0)
  157.            (
  158.              (set vernum1 (getversion (tackon wherelibs #lib)) )
  159.              (set ver1 (/ vernum1 65536)) (set rev1 (- vernum1 (* ver1 65536) ) )
  160.  
  161.              (copyfiles (source (tackon wherelibs #lib))
  162.                                 (dest libsdest)
  163.                                 (newname (cat #lib ver1 "." rev1))
  164.              )
  165.            )
  166.           )
  167.          ) 
  168.  
  169.          (set #lib "cybergraphics.library")  (BackUpLib)
  170.          (set #lib "cyberintuition.library") (BackUpLib)
  171.          (set #lib "cyberlayers.library")    (BackUpLib)
  172.          (set #lib "vilintuisup.library")    (BackUpLib)
  173.          (set #lib "gtlayout.library")       (BackUpLib)
  174.  
  175.          (message (cat #libsbacked1 libsdest #libsbacked2))
  176.       )
  177.     )
  178.  
  179.  
  180.    (if (IN todo 1)
  181.       (
  182.          (set mondest (tackon whereback "CyberGraphX"))
  183.          (if (< (exists mondest) 2)  (makedir mondest (infos)) )
  184.          (set mondest (tackon whereback "CyberGraphX/Devs"))
  185.          (if (< (exists mondest) 2)  (makedir mondest (infos)) )
  186.          (set mondest (tackon whereback "CyberGraphX/Devs/Monitors"))
  187.          (if (< (exists mondest) 2)  (makedir mondest (infos)) )
  188.            
  189.          (procedure BackUpMon
  190.           (if (> (exists (tackon wheremon #mon)) 0)
  191.             (
  192.              (working (cat #gettingcheck (tackon wheremon #mon) )) 
  193.              (set sum (getsum (tackon wheremon #mon)) )
  194.              (if (< sum 0) (set sum (* sum -1)) )
  195.  
  196.               (copyfiles (source (tackon wheremon #mon))
  197.                                  (dest mondest)
  198.                                  (newname (cat #mon "." sum))
  199.                                  (infos)
  200.               )
  201.             )
  202.           )
  203.          ) 
  204.  
  205.          (set #mon "Spectrum")    (BackUpMon)
  206.          (set #mon "Piccolo")     (BackUpMon)
  207.          (set #mon "Domino")      (BackUpMon)
  208.          (set #mon "RetinaZ3")    (BackUpMon)
  209.          (set #mon "PiccoSD64")   (BackUpMon)
  210.          (set #mon "A2410")       (BackUpMon)
  211.          (set #mon "Picasso")     (BackUpMon)
  212.          (set #mon "CyberVision") (BackUpMon)
  213.          (set #mon "DraCoAltais") (BackUpMon)
  214.          (set #mon "Merlin")      (BackUpMon)
  215.               
  216.          (message (cat #monbacked1 mondest #monbacked2))
  217.       )
  218.     )
  219.  
  220.  
  221.    (if (IN todo 2)
  222.       (
  223.          (set envdest (tackon whereback "CyberGraphX"))
  224.          (if (< (exists envdest) 2)  (makedir envdest (infos)) )
  225.          (set envdest (tackon whereback "CyberGraphX/Env"))
  226.          (if (< (exists envdest) 2)  (makedir envdest (infos)) )
  227.          (set envdest (tackon whereback "CyberGraphX/Env/cybergraphics"))
  228.          (if (< (exists envdest) 2)  (makedir envdest (infos)) )
  229.                  
  230.          (working #backenv) 
  231.          (set copycmd (cat "copy env:cybergraphics to \"" envdest "\" all"))  
  232.          (run copycmd)
  233.               
  234.          (message (cat #envbacked1 envdest))
  235.       )
  236.    )
  237.  
  238.    (if (IN todo 3)
  239.       (
  240.          (set envarcdest (tackon whereback "CyberGraphX"))
  241.          (if (< (exists envarcdest) 2)  (makedir envarcdest (infos)) )
  242.          (set envarcdest (tackon whereback "CyberGraphX/EnvArc"))
  243.          (if (< (exists envarcdest) 2)  (makedir envarcdest (infos)) )
  244.          (set envarcdest (tackon whereback "CyberGraphX/EnvArc/cybergraphics"))
  245.          (if (< (exists envarcdest) 2)  (makedir envarcdest (infos)) )
  246.                  
  247.          (working #backenvarc) 
  248.          (set copycmd (cat "copy envarc:cybergraphics to \"" envarcdest "\" all"))  
  249.          (run copycmd)
  250.               
  251.          (message (cat #envarcbacked1 envarcdest))
  252.       )
  253.    )    
  254.  
  255.  
  256.  )
  257. )
  258.  
  259.  
  260. )
  261. )
  262.  
  263. ;********************************************************************************
  264. ; UnInstall
  265. ;********************************************************************************
  266. (set dfn "")
  267. (procedure dfd   (delete (tackon "devs:monitors" dfn) (infos))  )
  268. (procedure dfl   (delete (tackon "libs:" dfn) (infos))  )
  269.  
  270.  
  271. (if (IN ja 1)
  272. (
  273.  
  274. (set todo1 (askoptions   (choices #libs #monitor #env #envarc)
  275.                           (prompt #whatpartun)
  276.                         (help   #whatpartun)
  277.                            (default 15)
  278.     )
  279. )
  280.  
  281. (if (IN todo1 0)
  282.   (
  283.    (set kill (askbool (prompt #deletelibs)
  284.                (help   #deletelibs)
  285.                       (choices #removenow #Skip)
  286.          )
  287.    )
  288.  
  289.    (if (= kill 1)
  290.     (
  291.      (set dfl "vilintuisup.library")   (dfl) (set dfl "cyberncg.library")       (dfl)
  292.      (set dfl "cybergraphics.library") (dfl) (set dfl "cyberintuition.library") (dfl)
  293.      (set dfl "cyberlayers.library")   (dfl)
  294.  
  295.     )
  296.    ) 
  297.   )
  298. )
  299.  
  300.  
  301. (if (IN todo1 1)
  302.   (
  303.    (set kill (askbool (prompt #deletemon)
  304.                (help   #deletemon)
  305.                       (choices #removenow #Skip)
  306.          )
  307.    )
  308.  
  309.    (if (= kill 1)
  310.     (
  311.      (set dfn "Spectrum") (dfd) (set dfn "Piccolo")     (dfd) (set dfn "Domino") (dfd)
  312.      (set dfn "RetinaZ3") (dfd) (set dfn "PiccoSD64")   (dfd) (set dfn "A2410") (dfd)
  313.      (set dfn "Picasso")  (dfd) (set dfn "CyberVision") (dfd) (set dfn "DraCoAltais") (dfd)
  314.     )
  315.    ) 
  316.   )
  317. )
  318.  
  319.  
  320. (if (IN todo1 2)
  321.   (
  322.    (set kill (askbool (prompt #deleteenv)
  323.                (help   #deleteenv)
  324.                       (choices #removenow #Skip)
  325.          )
  326.    )
  327.  
  328.    (if (= kill 1)
  329.     (
  330.      (foreach "env:cybergraphics" "#?" 
  331.       (set curdir @each-name) 
  332.       (foreach (tackon "env:cybergraphics" curdir) "#?"
  333.          ;(working (cat "\n\n" #deletefile "\n\n" (tackon (tackon "env:cybergraphics" curdir) @each-name)))
  334.          (delete (tackon (tackon "env:cybergraphics" curdir) @each-name)) 
  335.       )
  336.       ;(working (cat "\n\n" #deletedir "\n\n" (tackon "env:cybergraphics" curdir)))
  337.       (delete (tackon "env:cybergraphics" curdir))
  338.      )       
  339.      (delete "env:cybergraphics")
  340.     )
  341.    ) 
  342.   )
  343. )
  344.  
  345.  
  346. (if (IN todo1 3)
  347.   (
  348.    (set kill (askbool (prompt #deleteenvarc)
  349.                (help   #deleteenvarc)
  350.                       (choices #removenow #Skip)
  351.          )
  352.    )
  353.  
  354.    (if (= kill 1)
  355.     (
  356.      (foreach "envarc:cybergraphics" "#?" 
  357.       (set curdir @each-name) 
  358.       (foreach (tackon "envarc:cybergraphics" curdir) "#?"
  359.          ;(working (cat "\n\n" #deletefile "\n\n" (tackon (tackon "envarc:cybergraphics" curdir) @each-name)))
  360.          (delete (tackon (tackon "envarc:cybergraphics" curdir) @each-name)) 
  361.       )
  362.       ;(working (cat "\n\n" #deletedir "\n\n" (tackon "envarc:cybergraphics" curdir)))
  363.       (delete (tackon "envarc:cybergraphics" curdir))
  364.      )       
  365.      (delete "envarc:cybergraphics")
  366.     )
  367.    ) 
  368.   )
  369. )
  370.  
  371.  
  372. )
  373. )
  374. ;********************************************************************************
  375. ; END
  376. ;********************************************************************************
  377. (set @default-dest (cat whereback "CyberGraphX"))
  378. (exit "CyberBackUp-UnInstall")
  379.